Sub 평가()

    Range("D3").ClearContents
    
    With WorksheetFunction
    
        Range("B3").Value = .RandBetween(50, 100)
        Range("C3").Value = .RandBetween(50, 100)
        
    End With

    If Range("B3").Value >= 70 Then
    
        If Range("C3").Value >= 70 Then
    
            Range("D3").Value = "합격"
        
        End If
        
    ElseIf Range("B3").Value >= 90 Or Range("C3").Value >= 90 Then
    
        Range("D3").Value = "합격"
    
    End If

End Sub